home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
mb37025.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
2KB
|
51 lines
;=============370.25 UNIVERSAL-VERBINDUNGSSATZ 8/5
(defun C:37025D2 (/ NL P0 P1 P2 P10 P11 P12 P13)
(EAITDBL "0037025")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(EAITmsg "mb_mld12" "\n " "015" ": ") ;1. Nutlinie:
(setq NL (entsel " ")
P0 (cadr NL))
(setvar "OSMODE" 128)
(EAITmsg "mb_mld12" "\n " "016" ": ") ;2. Nutlinie:
(setq P1 (getpoint P0))
(setvar "ORTHOMODE" 0)
(setvar "OSMODE" 0)
(setvar "APERTURE" 4)
(setq P10 (osnap P0 EAITofend)
P11 (osnap P1 EAITofend)
P12 (osnap P0 EAITofmit)
P13 (osnap P1 EAITofmit)
P1 (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
P2 (mapcar '/ (mapcar '+ P12 P13) '(2 2 2))
)
(if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL) )
(command EAITzom EAITzof (polar P1 (EAITgib 225) 50) (polar P1 (EAITgib 45) 50))
(if (/= (ssget (polar P10 (angle P10 P12) 27)) nil)
(command EAITbru (polar P10 (angle P10 P12) 27) EAITbre P10 (polar P10 (angle P10 P12) 29.165))
)
(if (/= (ssget (polar P11 (angle P11 P13) 27)) nil)
(command EAITbru (polar P11 (angle P11 P13) 27) EAITbre P11 (polar P11 (angle P11 P13) 29.165))
)
(if (/= (ssget (polar P1 (angle P10 P11) 2)) nil)
(command EAITbru (polar P1 (angle P10 P11) 2) EAITbre P10 P11)
)
(command EAITege (strcat EAITpfn "37025d1") P1 "" "" P2
EAITzom EAITzov
)
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib 8.5)) 25) "" "" (EAITbig (EAITbw))
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
);defun D2